home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / AEUserTermTypes.p < prev    next >
Text File  |  1995-09-12  |  3KB  |  85 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 5:11:38 PM }
  2. {
  3.      File:        AEUserTermTypes.p
  4.  
  5.      Contains:    AppleEvents AEUT resource format Interfaces.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT AEUserTermTypes;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __AEUSERTERMTYPES__}
  26. {$SETC __AEUSERTERMTYPES__ := 1}
  27.  
  28. { $PUSH}
  29. { $ALIGN MAC68K}
  30. { $LibExport+}
  31.  
  32. CONST
  33.     kAEUserTerminology            = 'aeut';                        {  0x61657574  }
  34.     kAETerminologyExtension        = 'aete';                        {  0x61657465  }
  35.     kAEScriptingSizeResource    = 'scsz';
  36.  
  37.     kAEUTHasReturningParam        = 31;                            { if event has a keyASReturning param }
  38.     kAEUTOptional                = 15;                            { if something is optional }
  39.     kAEUTlistOfItems            = 14;                            { if property or reply is a list. }
  40.     kAEUTEnumerated                = 13;                            { if property or reply is of an enumerated type. }
  41.     kAEUTReadWrite                = 12;                            { if property is writable. }
  42.     kAEUTChangesState            = 12;                            { if an event changes state. }
  43.     kAEUTTightBindingFunction    = 12;                            { if this is a tight-binding precedence function. }
  44.     kAEUTApostrophe                = 3;                            { if a term contains an apostrophe. }
  45.     kAEUTFeminine                = 2;                            { if a term is feminine gender. }
  46.     kAEUTMasculine                = 1;                            { if a term is masculine gender. }
  47.     kAEUTPlural                    = 0;                            { if a term is plural. }
  48.  
  49.  
  50. TYPE
  51.     TScriptingSizeResource = RECORD
  52.         scriptingSizeFlags:        INTEGER;
  53.         minStackSize:            LONGINT;
  54.         preferredStackSize:        LONGINT;
  55.         maxStackSize:            LONGINT;
  56.         minHeapSize:            LONGINT;
  57.         preferredHeapSize:        LONGINT;
  58.         maxHeapSize:            LONGINT;
  59.     END;
  60.  
  61.  
  62. CONST
  63. {    If kLaunchToGetTerminology is 0, 'aete' is read directly from res file.  If set
  64.         to 1, then launch and use 'gdut' to get terminology. }
  65.     kLaunchToGetTerminology        = $8000;
  66. {    If kDontFindAppBySignature is 0, then find app with signature if lost.  If 1, 
  67.         then don't }
  68.     kDontFindAppBySignature        = $4000;
  69. {     If kAlwaysSendSubject 0, then send subject when appropriate. If 1, then every 
  70.         event has Subject Attribute }
  71.     kAlwaysSendSubject            = $2000;
  72.  
  73. { old names for above bits. }
  74.     kReadExtensionTermsMask        = $8000;
  75.  
  76.  
  77. { $ALIGN RESET}
  78. { $POP}
  79.  
  80. {$ENDC} {__AEUSERTERMTYPES__}
  81.  
  82.  IMPLEMENTATION
  83.  END.
  84.  
  85.